thisform.text1.Value=DTOC(DATE())
99/99/99

Control.InputMask[ = cMask]

thisform.text3.InputMask=[99/99/99]

https://msdn.microsoft.com/hu-hu/library/37y0d3s6(v=vs.80).aspx